(binary-add 2 3)
((lambda ()
	(binary-add 2 3)
))

((lambda () 1))


(letrec ((fact (lambda (n)
					(if (zero? n) 1
								 (* n (fact (- n 1))))
				)
		)) (fact 6))


((((lambda ()
	(lambda (x y) 
		(lambda (c d)
			(binary-add x d)
		) 
	)
 )) 3 4 ) 1 2)		